(abbreviate-file-name): Don't mistakenly match newlines in file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a985ef43f031a20cadf34370ecdd8d3c04212c41..ad79e1423a586050583f526695495d68ad451f87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * files.el (abbreviate-file-name): Don't mistakenly match newlines in
+       file name.
+
 2006-09-06  Ralf Angeli  <angeli@caeruleus.net>
 
        * frame.el (display-mm-dimensions-alist): New defcustom.

diff --git a/lisp/files.el b/lisp/files.el
index 0cd17932fd8cb867d086ccf25dc87485b39fefed..a96ba9776ef71f5d818d8ee72d11df7853b0ee7a 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1310,7 +1310,7 @@ removes automounter prefixes (see the variable `automount-dir-prefix')."
          (setq abbreviated-home-dir
                (let ((abbreviated-home-dir "$foo"))
                  (concat "^" (abbreviate-file-name (expand-file-name "~"))
-                         "\\(/\\|$\\)"))))
+                         "\\(/\\|\\'\\)"))))
 
       ;; If FILENAME starts with the abbreviated homedir,
       ;; make it start with `~' instead.